.text
.global _start

_start:
	LDR R0,=0X53000000
	LDR R1,=0
	STR R1,[R0]

	LDR R0,=0X56000050
	LDR R1,=0X00001500
	STR R1,[R0]


loop:	LDR R0,=0X56000054
	LDR R1,=0xffffff8f
	STR R1,[R0]

         bl delay

	LDR R0,=0X56000054
	LDR R1,=0x00000070
	STR R1,[R0]

         bl delay

        b loop

HALT:	
	B HALT

delay:
	ldr r0,=100000
x:
	sub r0,r0,#1
	cmp r0,#0
	bne x

       mov pc,lr

	
